home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 53 / 053.d81 / politics 1988 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  25.6 KB  |  659 lines
  1. 100 goto170
  2. 110 poke214,23:print:poke198,0
  3. 120 print"[150]  [211][208][193][195][197] [194][193][210] to continue   [198]1 to [209]uit  ";
  4. 130 getx$
  5. 140 ifx$=" "thenprint"[147][146]";:print"[154]":return
  6. 150 ifx$="[133]"then5620
  7. 160 goto130
  8. 170 print"[147]";:poke53280,0:poke53281,0:poke53272,23
  9. 180 print"[150]"
  10. 190 print"    [161][172][187][146][187][172][172][187][146][187][161][146][161]   [187][172][146] [188][187][172][146][190] [187][172][146] [172][172][187][146][187][172][172][187][146][187]"
  11. 200 print"    [161][188][190][146][190][161][146][161][161][146][161][161][146][161]   [161][146][161]  [161][146][161]  [161][146][161] [161][146][161]  [188][188][146][162]"
  12. 210 print"    [161][146][161]  [161][146][161][161][146][161][161][146][161]   [161][146][161]  [161][146][161]  [161][146][161] [161][146][161][172][187][172][187][161][146][161]"
  13. 220 print"    [188][190]   [162][162][146] [188][162][162][146][190] [162][162][146]  [188][190]  [162][162][146]  [162][162][146]  [162][162][146]"
  14. 230 print"             [161][146][161] [172][172][187][146][187][172][172][187][146][187][172][172][187][146][187]"
  15. 240 print"             [187][146][161] [188][188][190][146][161][188][188][190][146][190][188][188][190][146][190]"
  16. 250 print"[154]             [161][146][161] [172][187][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]"
  17. 260 print"            [188][162][162][146][190] [162][162][146]  [162][162][146]  [162][162][146]"
  18. 270 print" [193]n [193]ssessment of [217]our [208]olitical [214]iews"
  19. 280 print"       by [196]r. [196]allace [204]. [205]eehan"
  20. 290 fori=1to4000:next:print"[147]"chr$(14)
  21. 300 print"[150]         *******************"
  22. 310 print"         *                 *"
  23. 320 print"         *  [208][207][204][201][212][201][195][211][160]1988  *"
  24. 330 print"[154]         *                 *"
  25. 340 print"         *******************"
  26. 350 print"   [215][200][197][210][197][160][196][207][160][217][207][213][160][211][212][193][206][196][160][207][206][160][212][200][197][160][201][211][211][213][197][211]?"
  27. 360 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  28. 370 print"[154]   [208]olitically speaking, are you a"
  29. 380 print"[196]emocrat or a [210]epublican?  [193]re you a"
  30. 390 print"liberal or a conservative?  [196]o you know?"
  31. 400 print"[212]he fact is, many, if not most people,"
  32. 410 print"are liberal on some issues and conserv-"
  33. 420 print"ative on others."
  34. 430 gosub110
  35. 440 print"   [208]olitical beliefs are more accurately"
  36. 450 print"described as existing along a continuum."
  37. 460 print"[212]hey are seldom as clearly polarized at"
  38. 470 print"the extreme ends of the political spect-"
  39. 480 print"rum as a 'two-party' system might sug-"
  40. 490 print"gest."
  41. 500 print"   [208]arty affiliation not withstanding"
  42. 510 print"then, how do you really know how you"
  43. 520 print"stack up in terms of your political be-"
  44. 530 print"liefs?"
  45. 540 gosub110
  46. 550 print"   [207]ne way is to evaluate your position"
  47. 560 print"on the key issues.  [212]his program was"
  48. 570 print"designed to do just that.  [194]ased on a"
  49. 580 print"survey of experts on political polling,"
  50. 590 print"'[208][207][204][201][212][201][195][211][160]1988' will assess your views"
  51. 600 print"on several major issues.  [212]he overall"
  52. 610 print"results will then be evaluated in terms"
  53. 620 print"of where your beliefs fall along the"
  54. 630 print"political spectrum."
  55. 640 gosub110
  56. 650 print"   '[208][207][204][201][212][201][195][211][160]1988'  can help you choose "
  57. 660 print"the  correct  candidate  and  political "
  58. 670 print"party  consistent with your own beliefs."
  59. 680 print"[212]he program is also designed to serve as"
  60. 690 print"a tutorial on the national issues used  "
  61. 700 print"in the survey.                          "
  62. 710 gosub110
  63. 720 print"[150]          [211][213][210][214][197][217][160][201][206][211][212][210][213][195][212][201][207][206][211]"
  64. 730 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]   "
  65. 740 print"[154][198]ollowing a brief discussion of selected "
  66. 750 print"political issues you will be presented   "
  67. 760 print"with three possible positions for each.  "
  68. 770 print"[210]ead these carefully.  [212]hen enter the    "
  69. 780 print"number corresponding to the position     "
  70. 790 print"which comes closest to your own."
  71. 800 gosub110
  72. 810 print"   [208]lease note that none of the three"
  73. 820 print"positions may reflect your view exactly,"
  74. 830 print"but one of them will certainly come"
  75. 840 print"closer than the other two.  [217]ou must"
  76. 850 print"enter your choice for each of the issues"
  77. 860 print"used in the survey.  [215]hen all of your"
  78. 870 print"selections have been made, the computer"
  79. 880 print"will prepare your political profile."
  80. 890 gosub110
  81. 900 print"[150]           [212][200][197][160][194][213][196][199][197][212][160][196][197][198][201][195][201][212]"
  82. 910 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  83. 920 print"[154]   [210]onald [210]eagan campaigned for election";
  84. 930 print"in 1980 as a fierce opponent of taxes"
  85. 940 print"and wasteful [213].[211]. spending.  [201]n 1981 he"
  86. 950 print"won [195]ongressional approval for major"
  87. 960 print"cuts in taxes.   [200]is idea was to stimul-";
  88. 970 print"ate the economy by putting more money"
  89. 980 print"into consumers' hands."
  90. 990 print"   [208]resident [210]eagan also began a mili-"
  91. 1000 print"tary buildup.  [212]he combination of less"
  92. 1010 print"tax money and increased defense spend-"
  93. 1020 print"ing fueled a period of massive federal"
  94. 1030 print"budget deficits.   [212]his is the gap be-"
  95. 1040 print"tween  what the government spends and"
  96. 1050 print"what it earns in taxes.  [211]ince 1981 the"
  97. 1060 print"[213].[211]. budget deficit has averaged more"
  98. 1070 print"than $181 billion a year."
  99. 1080 gosub110
  100. 1090 print"   [212]o make up the difference, the gov-"
  101. 1100 print"ernment has borrowed money -- much of"
  102. 1110 print"it from foreign investors.  [212]he total"
  103. 1120 print"national debt -- all the money the gov-"
  104. 1130 print"ernment owes its creditors -- is now"
  105. 1140 print"more than $2.4 trillion!"
  106. 1150 print"          ($2,400,000,000,000)"
  107. 1160 print"   [198]ederal spending has indeed sparked"
  108. 1170 print"economic growth, but most economists"
  109. 1180 print"believe the budget deficits dangerously"
  110. 1190 print"weaken the economy's long-range health."
  111. 1200 print"[198]uture generations, they say, may face"
  112. 1210 print"higher taxes and a lower standard of"
  113. 1220 print"living in order to pay off this gener-"
  114. 1230 print"ation's bills."
  115. 1240 gosub110
  116. 1250 print"   [201]n [207]ctober, 1987, the stock market"
  117. 1260 print"plunged as alarm over the state of the "
  118. 1270 print"economy increased.  [205]ost economists and"
  119. 1280 print"business leaders agree that the federal"
  120. 1290 print"deficit must be reduced.  Some want cuts";
  121. 1300 print"in defense spending, while others feel "
  122. 1310 print"that social programs should be cut.  [193]t"
  123. 1320 print"the same time, many economists call for"
  124. 1330 print"a tax increase while others warn that"
  125. 1340 print"raising taxes would dismay consumers and";
  126. 1350 print"increase the chance for a serious slump"
  127. 1360 print"in the economy."
  128. 1370 print"   [215]hich of the following statements"
  129. 1380 print"most closely reflects your position on"
  130. 1390 print"this issue?"
  131. 1400 gosub110
  132. 1410 print"[150]          [212][200][197]  [194][213][196][199][197][212] [160][196][197][198][201][195][201][212]"
  133. 1420 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  134. 1430 print"[154][192][192] 1. [195]ut some social programs and some ";
  135. 1440 print"      defense projects, and raise taxes."
  136. 1450 print"[192][192] 2. [196]o not raise taxes or cut military";
  137. 1460 print"      spending.  [201]nstead, cut wasteful  ";
  138. 1470 print"      or ineffective social programs."
  139. 1480 print"[192][192] 3. [211]lash wasteful defense projects"
  140. 1490 print"      rather than social programs."
  141. 1500 print"      [195]onsider a tax increase."
  142. 1510 print"[150]     ([197]nter the number of your choice)  ";
  143. 1520 geta$:ifa$=""then1520
  144. 1530 a=val(a$):ifa<1ora>3then1520
  145. 1540 ifa=1thenx=2
  146. 1550 ifa=2thenx=1
  147. 1560 ifa=3thenx=3
  148. 1570 print"[147]         [160][160][197][160][196][160][213][160][195][160][193][160][212] [201] [207] [206]"
  149. 1580 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  150. 1590 print"[154]   [196]uring the past year two best selling";
  151. 1600 print"books -- [193]llan [194]loom's '[212]he [195]losing of"
  152. 1610 print"the [193]merican [205]ind' and [197].[196]. [200]irsch's"
  153. 1620 print"'[195]ultural [204]iteracy' -- fueled a heated"
  154. 1630 print"debate over the declining quality of"
  155. 1640 print"[193]merican education.  [193]merican students,"
  156. 1650 print"according to these authors and many"
  157. 1660 print"other experts on education, know embar-"
  158. 1670 print"rasingly little.  [194]loom and [200]irsch both"
  159. 1680 print"argue that students are not learning the";
  160. 1690 print"basic ideas, values, and traditions that";
  161. 1700 print"form the core of [215]estern civilization."
  162. 1710 print"Most studies seem to support that rather";
  163. 1720 print"pessimistic view.  [193]lthough we spent a"
  164. 1730 print"record $308 billion on education last"
  165. 1740 print"year, experts continue to give [213].[211]"
  166. 1750 print"schools failing grades."
  167. 1760 gosub110
  168. 1770 print"   [201]n a test of some 8,000 17-year-old "
  169. 1780 print"students, for example, less than a third";
  170. 1790 print"knew within which half century the [193]mer-";
  171. 1800 print"ican [195]ivil [215]ar occurred.  [211]ome [193]merican"
  172. 1810 print"college students were not even able to "
  173. 1820 print"locate the United States on a world map!";
  174. 1830 print"   [197]xperts warn that if our educational"
  175. 1840 print"system is not improved quickly, our"
  176. 1850 print"nation will continue to fall behind in"
  177. 1860 print"our ability to compete with other nat-"
  178. 1870 print"ions such as [202]apan and [215]est [199]ermany."
  179. 1880 print"   [215]hich of the following statements"
  180. 1890 print"most closely reflects your positiion on"
  181. 1900 print"this issue?"
  182. 1910 gosub110
  183. 1920 print"[150]           [197][160][196][160][213][160][195][160][193][160][212] [201][160][207][160][206]"
  184. 1930 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  185. 1940 print"[154]";
  186. 1950 print"[154][192][192] 1. [208]rovide tax credits for tuition"
  187. 1960 print"      and explore other financial ways"
  188. 1970 print"      to help parents send children to"
  189. 1980 print"      the schools of their choice."
  190. 1990 print"[192][192] 2. [196]emand good performance from"
  191. 2000 print"      schools by rewarding districts"
  192. 2010 print"      that show improvement.  [208]rovide"
  193. 2020 print"      merit pay for good teachers."
  194. 2030 print"[192][192] 3. [201]ncrease federal funding for"
  195. 2040 print"      programs to prevent drop-outs and"
  196. 2050 print"      to help the disadvantaged pay for"
  197. 2060 print"      college."
  198. 2070 print"[150]     ([197]nter the number of your choice)"
  199. 2080 getb$:ifb$=""then2080
  200. 2090 b=val(b$):ifb<1ora>3then2080
  201. 2100 x=x+b
  202. 2110 print"[147][150]              [198][207][210][197][201][199][206][160][212][210][193][196][197]"
  203. 2120 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  204. 2130 print"[154]   [212]he budget deficit discussed earlier,";
  205. 2140 print"has triggered another problem:  a trade"
  206. 2150 print"deficit.  The United States has borrowed";
  207. 2160 print"much of the money needed to finance its"
  208. 2170 print"budget deficits by selling bonds to for-";
  209. 2180 print"eign investors.  [212]o get dollars, these"
  210. 2190 print"foreign investors buy them on the inter-";
  211. 2200 print"national money market.  [193]s demand for"
  212. 2210 print"dollars goes up, so does its value com-"
  213. 2220 print"pared to other nations' currencies."
  214. 2230 print"With a 'strong' or highly-valued dollar,";
  215. 2240 print"[193]mericans buy more foreign products."
  216. 2250 print"[193]merican products however, become more"
  217. 2260 print"expensive to foreign consumers.  [193]s a"
  218. 2270 print"result, the U.S. imports more goods than";
  219. 2280 print"it exports."
  220. 2290 gosub110
  221. 2300 print"     [201]n 1987 the [213].[211]. trade deficit"
  222. 2310 print"reached an all time annual high of more"
  223. 2320 print"than $156 billion."
  224. 2330 print"     [195]ongress has debated laws to solve"
  225. 2340 print"the problem.  [207]ne of the proposals, by"
  226. 2350 print"[210]ep. [210]ichard [199]ephardt, calls for auto-"
  227. 2360 print"matic trade retaliation toward nations"
  228. 2370 print"that keep out [213].[211]. products.  [207]n the"
  229. 2380 print"other hand, [208]resident [210]eagan and others"
  230. 2390 print"favor 'free trade' -- a free flow of"
  231. 2400 print"goods and services across international"
  232. 2410 print"borders.  [212]rade restrictions, they say,"
  233. 2420 print"only trigger retaliations."
  234. 2430 print"     [215]hich of the following statements"
  235. 2440 print"most closely reflects your position on"
  236. 2450 print"this issue?"
  237. 2460 gosub110
  238. 2470 print"[150]             [198][207][210][197][201][199][206][160][212][210][193][196][197]"
  239. 2480 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  240. 2490 print"[154][192][192] 1. [210]etaliate against nations which"
  241. 2500 print"      maintain unfair trade barriers."
  242. 2510 print"[192][192] 2. [197]stablish trade tariffs and other"
  243. 2520 print"      restrictions to protect struggling";
  244. 2530 print"      [213].[211]. industries."
  245. 2540 print"[192][192] 3. [197]ncourage free trade.  [210]etaliation";
  246. 2550 print"      triggers trade wars which will"
  247. 2560 print"      only serve to make the problem"
  248. 2570 print"      worse."
  249. 2580 print"[150]    ([197]nter the number of your choice)"
  250. 2590 getc$:ifc$=""then2590
  251. 2600 c=val(c$):ifc<1orc>3then2590
  252. 2610 ifc=1thenx=x+3
  253. 2620 ifc=2thenx=x+2
  254. 2630 ifc=3thenx=x+1
  255. 2640 print"[147][150]          [196][160][210][160][213][160][199][160][160][193][160][194][160][213][160][211][160][197]"
  256. 2650 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  257. 2660 print"[154]   [208]ublic opinion polls show that both"
  258. 2670 print"parents and students agree that drug"
  259. 2680 print"abuse is the number one problem in our"
  260. 2690 print"schools.  [201]t is also a growing problem"
  261. 2700 print"for our society at large.  [206]ot only has"
  262. 2710 print"it ruined millions of individual lives,"
  263. 2720 print"it is also a costly burden in terms of"
  264. 2730 print"reduced job productivity, medical bills,";
  265. 2740 print"and crime."
  266. 2750 print"   [193]mericans have called for a host of"
  267. 2760 print"solutions to solve the drug problem."
  268. 2770 print"[211]ome favor stiffer laws against people"
  269. 2780 print"who sell or are caught using drugs.  One";
  270. 2790 print"proposal would require life sentences"
  271. 2800 print"for twice convicted dealers of drugs."
  272. 2810 gosub110
  273. 2820 print"   [193]nother proposal would impose the"
  274. 2830 print"death penalty on dealers when a murder"
  275. 2840 print"occurs during a drug deal."
  276. 2850 print"   [207]thers insist stiffer laws don't get"
  277. 2860 print"at the root of the problem -- why people";
  278. 2870 print"turn to drugs in the first place.  [212]hey"
  279. 2880 print"favor drug education and counseling to"
  280. 2890 print"eliminate the need for drugs."
  281. 2900 print"   [205]ore and more businesses are requir-"
  282. 2910 print"ing their workers to undergo drug test-"
  283. 2920 print"ing.  [198]ormer presidential candidate"
  284. 2930 print"[208]ierre [196]u [208]ont favors testing all teen-"
  285. 2940 print"agers to keep schools drug-free.  [205]any "
  286. 2950 print"people however, believe drug testing an"
  287. 2960 print"invasion of an individual's privacy."
  288. 2970 print"   [215]hich of the following statements"
  289. 2980 print"most closely reflects your position?"
  290. 2990 print"";
  291. 3000 gosub110
  292. 3010 print"[150]           [196][160][210][160][213][160][199][160] [193][160][194][160][213][160][211][160][197]"
  293. 3020 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  294. 3030 print"[154]";
  295. 3040 print"[154][192][192] 1. [205]andatory drug testing is needed"
  296. 3050 print"      in both the workplace and schools.";
  297. 3060 print"      [204]ife sentences for dealers and"
  298. 3070 print"      stiffer punishment for those"
  299. 3080 print"      guilty of abuse are necessary."
  300. 3090 print"[192][192] 2. [207]nly people in sensitive positions";
  301. 3100 print"      should be tested -- pilots, the"
  302. 3110 print"      police, nuclear power plant"
  303. 3120 print"      workers, etc.  [212]hose found to be "
  304. 3130 print"      users should be helped."
  305. 3140 print"[192][192] 3. [205]andatory drug testing violates an";
  306. 3150 print"      individuals's right to privacy and";
  307. 3160 print"      should not be allowed.  [195]ounseling";
  308. 3170 print"      and education is more effective."
  309. 3180 print"[150]     ([197]nter the number of your choice)";
  310. 3190 getd$:ifd$=""then3190
  311. 3200 d=val(d$):ifd<1ord>3then3190
  312. 3210 x=x+d
  313. 3220 print"[147]        [211][207][214][201][197][212]-[193][205][197][210][201][195][193][206][160][210][197][204][193][212][201][207][206][211]      "
  314. 3230 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  315. 3240 print"[154]   [201]n [196]ecember, 1987, [211]oviet leader"
  316. 3250 print"Mikhail Gorbachev came to Washington for";
  317. 3260 print"his third summit meeting with [208]resident"
  318. 3270 print"[210]eagan.  [212]he two leaders signed the [201][206][198]"
  319. 3280 print"([201]ntermediate [206]uclear [198]orces) [212]reaty,"
  320. 3290 print"which will eliminate both sides' medium-";
  321. 3300 print"range missiles.  [194]oth sides hope to be"
  322. 3310 print"able to agree on more significant cuts"
  323. 3320 print"in long-range nuclear missiles soon."
  324. 3330 print"   [196]espite increased cooperation, some"
  325. 3340 print"glaring problems remain.  [212]he [211]oviets"
  326. 3350 print"want the [213]nited [211]tates to stop testing"
  327. 3360 print"its [211]trategic [196]efense [201]nitiative ([211][196][201]),"
  328. 3370 print"the high-tech research project that is"
  329. 3380 print"meant to develop a space-based defense"
  330. 3390 print"system."
  331. 3400 gosub110
  332. 3410 print"   [213].[211]. critics of [211][196][201] say that the"
  333. 3420 print"plan is unworkable and too costly, and"
  334. 3430 print"have dubbed the effort '[211]tar [215]ars.'"
  335. 3440 print"   [193]merican negotiators want the [211]oviets";
  336. 3450 print"to cut back on their massive array of"
  337. 3460 print"conventional, or non-nuclear, forces in ";
  338. 3470 print"[197]astern [197]urope.  [212]he [213]nited [211]tates also"
  339. 3480 print"continues to pressure the Soviets to end";
  340. 3490 print"their nine-year-long occupation of"
  341. 3500 print"[193]fghanistan."
  342. 3510 print"   [215]hich of the following statements"
  343. 3520 print"most closely reflects your position on"
  344. 3530 print"this issue?"
  345. 3540 gosub110
  346. 3550 print"[150][146]         [211][207][214][201][197][212]-[193][205][197][210][201][195][193][206][160][210][197][204][193][212][201][207][206][211]"
  347. 3560 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  348. 3570 print"[154][192][192] 1. [212]rust the [211]oviets to keep their"
  349. 3580 print"      agreements -- [193]rms reductions are"
  350. 3590 print"      in their interest too.  [193]bandon"
  351. 3600 print"      [211]tar [215]ars as a waste of money."
  352. 3610 print"[192][192] 2. [196]on't trust the [211]oviets.  [198]orget"
  353. 3620 print"      arms negotiations.  [195]ontinue [211][196][201]"
  354. 3630 print"      and deploy when ready."
  355. 3640 print"[192][192] 3. [194]e wary of the [211]oviets, but con-"
  356. 3650 print"      tinue negotiations.  [195]ontinue [211][196][201]"
  357. 3660 print"      research, but delay deployment if"
  358. 3670 print"      the [211]oviets appear sincere in arms";
  359. 3680 print"      negotiations."
  360. 3690 print"[150]     ([211]elect the number of your choice)"
  361. 3700 gete$:ife$=""then3700
  362. 3710 e=val(e$):ife<1ore>3then3700
  363. 3720 ife=1thenx=x+3
  364. 3730 ife=2thenx=x+1
  365. 3740 ife=3thenx=x+2
  366. 3750 print"[147]        [212][200][197][160][198][201][199][200][212][160][193][199][193][201][206][211][212][160][193][201][196][211]"
  367. 3760 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  368. 3770 print"[154]   [212]he spread of the [193][201][196][211][160]virus is one"
  369. 3780 print"of the most serious public health crises";
  370. 3790 print"to afflict the nation in recent memory."
  371. 3800 print"More than 43,000 cases resulting in more";
  372. 3810 print"than 26,000 deaths have been reported"
  373. 3820 print"since 1981.  [201]f the epidemic continues"
  374. 3830 print"to spread at its current rate, experts"
  375. 3840 print"say, by the end of 1991 over 270,000"
  376. 3850 print"[193]mericans will be infected with the"
  377. 3860 print"virus that causes [193][201][196][211]."
  378. 3870 print"   [193] fatal disease that attacks the"
  379. 3880 print"immune system, [193][201][196][211] is contracted in"
  380. 3890 print"three main ways:"
  381. 3900 print"   (a) through sexual contact with an"
  382. 3910 print"infected person;"
  383. 3920 gosub110
  384. 3930 print"   (b) from sharing hypodermic needles "
  385. 3940 print"with an infected person; and"
  386. 3950 print"   (c) before or during birth, from an"
  387. 3960 print"[193][201][196][211]-infected mother."
  388. 3970 print"   [212]he [193][201][196][211] virus cannot be spread by"
  389. 3980 print"casual contact.  So far, the vast major-";
  390. 3990 print"ity of [213].[211]. [193][201][196][211] victims have been"
  391. 4000 print"homosexuals or drug addicts.  [194]ut many"
  392. 4010 print"experts believe it may be only a matter"
  393. 4020 print"of time before the [193][201][196][211][160]virus spreads"
  394. 4030 print"to other groups.  [211]ome predict that the"
  395. 4040 print"next major group to be afflicted with"
  396. 4050 print"[193][201][196][211] are young teenagers."
  397. 4060 print"   [212]he government faces two challenges."
  398. 4070 print"[198]irst, to help those who have [193][201][196][211] or"
  399. 4080 print"are infected with the [193][201][196][211] virus."
  400. 4090 print"[211]econd, to prevent the epidemic from"
  401. 4100 print"spreading."
  402. 4110 gosub110
  403. 4120 print"   [215]hile spending on [193][201][196][211][160]research and"
  404. 4130 print"medical aid has increased, some have"
  405. 4140 print"called for widespread testing to find"
  406. 4150 print"out just who has [193][201][196][211] or are carrying"
  407. 4160 print"the [193][201][196][211][160]virus.  [207]thers argue that"
  408. 4170 print"forced testing for [193][201][196][211] violates indi-"
  409. 4180 print"viduals' privacy and exposes those who"
  410. 4190 print"test positively to discrimination."
  411. 4200 print"   [215]hich of the following statements"
  412. 4210 print"most closely reflects your position on"
  413. 4220 print"this issue?"
  414. 4230 gosub110
  415. 4240 print"[150]         [212][200][197][160][198][201][199][200][212][160][193][199][193][201][206][211][212][160][193][201][196][211]"
  416. 4250 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  417. 4260 print"[154][192][192] 1. [212]est only prisoners, immigrants,"
  418. 4270 print"      and people about to be married."
  419. 4280 print"[192][192] 2. [195]ompulsory testing for [193][201][196][211] is"
  420. 4290 print"      impractical and violates privacy"
  421. 4300 print"      of the individual.  [195]oncentrate"
  422. 4310 print"      on education about the disease"
  423. 4320 print"      and helping those who have it."
  424. 4330 print"[192][192] 3. [193]ids is a serious danger to our"
  425. 4340 print"      society.  [197]veryone should be"
  426. 4350 print"      tested, and those with [193][201][196][211]"
  427. 4360 print"      should be quarantined."
  428. 4370 print"[150]    ([211]elect the number of your choice)"
  429. 4380 getf$:iff$=""then4380
  430. 4390 f=val(f$):iff<1orf>3then4380
  431. 4400 iff=1thenx=x+2
  432. 4410 iff=2thenx=x+3
  433. 4420 iff=3thenx=x+1
  434. 4430 print"[147]     [213].[211]. [208][207][204][201][195][217][160][201][206][160][195][197][206][212][210][193][204][160][193][205][197][210][201][195][193]"
  435. 4440 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  436. 4450 print"[154]   [212]hroughout our history, the [213]nited"
  437. 4460 print"[211]tates has taken a keen interest in"
  438. 4470 print"Central America.  In this century alone,";
  439. 4480 print"the U.S. has repeatedly sent troops into";
  440. 4490 print"nations in the region to quell unrest"
  441. 4500 print"and to protect [213].[211]. business interests."
  442. 4510 print"   [212]he focus of current controversy is"
  443. 4520 print"[213].[211]. opposition to the [211]andinista"
  444. 4530 print"leaders of [206]icaragua, a nation of 3.3"
  445. 4540 print"million people."
  446. 4550 print"   [201]n 1979, the [211]andinistas led a pop-"
  447. 4560 print"ular revolt which toppled a dictatorship";
  448. 4570 print"that had lasted some 40 years. At first,";
  449. 4580 print"the United States aided the Sandinistas.";
  450. 4590 gosub110
  451. 4600 print"   [194]ut the [211]andinistas also turned to"
  452. 4610 print"the [211]oviet [213]nion and [195]uba for support."
  453. 4620 print"In response, President Reagan has backed";
  454. 4630 print"anti-[211]andinista rebels known as the"
  455. 4640 print"[195]ontras.  [208]resident [210]eagan accuses the"
  456. 4650 print"[211]andinistas of aiding leftist rebels"
  457. 4660 print"fighting the governments of [197]l [211]alvador"
  458. 4670 print"and [199]uatemala."
  459. 4680 print"   [200]e calls the [195]ontras 'freedom fight-"
  460. 4690 print"ers'.  [205]any [193]mericans however, say that"
  461. 4700 print"the [213].[211]. has no right to meddle in the"
  462. 4710 print"region's affairs."
  463. 4720 print"   [215]hich of the following statements"
  464. 4730 print"most closely reflects your position on"
  465. 4740 print"this issue?"
  466. 4750 gosub110
  467. 4760 print"[150]     [213].[211]. [208][207][204][201][195][217][160][201][206][160][195][197][206][212][210][193][204][160][193][205][197][210][201][195][193]"
  468. 4770 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  469. 4780 print"[154][192][192] 1. [208]rovide the [195]ontras whatever"
  470. 4790 print"      military support is necessary to"
  471. 4800 print"      enable them to topple the [211]andin-"
  472. 4810 print"      ista government."
  473. 4820 ifg=1thenx=x+1:ifg=2thenx=x+3:ifg=3thenx=x+2
  474. 4830 print"[192][192] 2. [211]top supporting the [195]ontras.  [199]ive";
  475. 4840 print"      peace a chance to work out in the"
  476. 4850 print"      region without [213].[211]. involvement."
  477. 4860 print"[192][192] 3. [194]ack negotiations, but continue"
  478. 4870 print"      support to the [195]ontras to force"
  479. 4880 print"      the [211]andinistas to bargain in good";
  480. 4890 print"      faith."
  481. 4900 print"[150]     ([211]elect the number of your choice)"
  482. 4910 getg$:ifg$=""then4910
  483. 4920 g=val(g$):ifg<1org>3then4910
  484. 4930 ifg=1thenx=x+1
  485. 4940 ifg=2thenx=x+3
  486. 4950 ifg=3thenx=x+2
  487. 4960 print"[147][150]    *******************************"
  488. 4970 print"    *                             *"
  489. 4980 print"    *   [217][207][213][210][160][208][207][204][201][212][201][195][193][204][160][208][210][207][198][201][204][197]    *"
  490. 4990 print"[154]    *                             *"
  491. 5000 print"    *******************************"
  492. 5010 fort=1to2000:next
  493. 5020 print"    (analyzing survey results ..."
  494. 5030 print"     please standby ...)"
  495. 5040 fori=1to5000:next
  496. 5050 ifx=7then5880
  497. 5060 ifx>7andx<10then6200
  498. 5070 ifx=14then6500
  499. 5080 ifx>18andx<21then6350
  500. 5090 ifx=21then6040
  501. 5100 ifx>14andx<19then5700
  502. 5110 print"[147]   [194]ased on the statements you selected"
  503. 5120 print"concerning the issues in the survey,"
  504. 5130 print"your political profile is ..."
  505. 5140 print"      ***************************"
  506. 5150 print"      *                         *"
  507. 5160 print"      *                         *"
  508. 5170 print"[150]      *  [205][193][201][206][211][212][210][197][193][205][160][210][197][208][213][194][204][201][195][193][206]  *"
  509. 5180 print"      *                         *"
  510. 5190 print"      *                         *"
  511. 5200 print"      ***************************"
  512. 5210 print"[154]   [215]hile your views are conservative on"
  513. 5220 print"some issues and moderate or even liberal";
  514. 5230 print"on others, your overall views place you"
  515. 5240 print"within the [210]epublican, or moderately"
  516. 5250 print"conservative sector of the [193]merican"
  517. 5260 print"political spectrum."
  518. 5270 gosub5640
  519. 5280 print"[160][160][160][160][160][160][160][160][160][160][195][207][206][195][204][213][196][201][206][199][160][212][200][207][213][199][200][212][211]"
  520. 5290 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  521. 5300 print"[154]   [212]he purpose of [208][207][204][201][212][201][195][211][160]1988 was to"
  522. 5310 print"raise your level of awareness -- your"
  523. 5320 print"awareness of important political issues,"
  524. 5330 print"[193]merican political thought, and most"
  525. 5340 print"importantly, of your own political"
  526. 5350 print"beliefs.  [212]he survey was designed to"
  527. 5360 print"identify seven distinct political"
  528. 5370 print"profiles ranging from '[197]xtreme [204]iberal'"
  529. 5380 print"to '[213]ltra [195]onservative.'"
  530. 5390 gosub5640
  531. 5400 print"[154]   [217]ou should be aware however, that"
  532. 5410 print"one's political profile can and usually"
  533. 5420 print"does change over time.  [211]uch things as"
  534. 5430 print"education and socio-economic status"
  535. 5440 print"also affect political views.  [212]herefore"
  536. 5450 print"you may wish to take the survey again at"
  537. 5460 print"some future time.  [217]ou may also find it"
  538. 5470 print"interesting to have members of your"
  539. 5480 print"family and close friends participate in"
  540. 5490 print"the survey."
  541. 5500 gosub5640
  542. 5510 print"        [208][160][207][160][204][160][201][160][212][160][201][160][195][160][211][160][160]1 9 8 8"
  543. 5520 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  544. 5530 print"[154]                  by:"
  545. 5540 print"         [196]r. [196]allace [204]. [205]eehan"
  546. 5550 print"       3254 [195]overed [194]ridge [196]rive"
  547. 5560 print"       [205]ontgomery, [193]labama 36116"
  548. 5570 print"            (205) 272-3892"
  549. 5580 print"   [208]ress [193] to run the program again."
  550. 5590 print"          [193]ny other key quits."
  551. 5600 getz$:ifz$=""then5600
  552. 5610 ifz$="a"orz$="[193]"then100
  553. 5620 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  554. 5630 ifer%<>63thenend
  555. 5635 load"hello connect",8
  556. 5640 print"";:print"";
  557. 5650 print"[150]";
  558. 5660 print"         [211]pace bar to [195]ontinue[146]        ";
  559. 5670 getm$:ifm$=""then5670
  560. 5680 print"[147]";
  561. 5690 return
  562. 5700 print"[147][154]   [194]ased on the statements you selected"
  563. 5710 print"concerning the issues discussed in the"
  564. 5720 print"survey, your political profile is ..."
  565. 5730 print"      ***************************"
  566. 5740 print"      *                         *"
  567. 5750 print"      *                         *"
  568. 5760 print"[150]      *   [205][193][201][206][211][212][210][197][193][205][160][196][197][205][207][195][210][193][212]   *"
  569. 5770 print"      *                         *"
  570. 5780 print"      *                         *"
  571. 5790 print"      ***************************"
  572. 5800 print"[154]   [215]hile your views are liberal on some"
  573. 5810 print"issues and moderate or even conservative";
  574. 5820 print"on others, your overall views place you"
  575. 5830 print"within the [196]emocratic or moderately"
  576. 5840 print"liberal sector of the American political";
  577. 5850 print"spectrum."
  578. 5860 gosub5640
  579. 5870 print"[147]":goto5280
  580. 5880 print"[147]   [194]ased on the statements you selected"
  581. 5890 print"concerning the issues in the survey,"
  582. 5900 print"your political profile is ..."
  583. 5910 print"   ***********************************"
  584. 5920 print"   *                                 *"
  585. 5930 print"   *                                 *"
  586. 5940 print"[150]   *  [213][204][212][210][193][160][195][207][206][211][197][210][214][193][212][201][214][197][160][210][197][208][213][194][204][201][195][193][206]  *"
  587. 5950 print"   *                                 *"
  588. 5960 print"   *                                 *"
  589. 5970 print"   ***********************************"
  590. 5980 print"[154]   [217]our political views are completely"
  591. 5990 print"and consistently conservative on all the";
  592. 6000 print"issues.  [212]his places you on the extreme"
  593. 6010 print"right of [193]merican political thought."
  594. 6020 gosub5640
  595. 6030 print"[147]":goto5280
  596. 6040 print"[147][154]   [194]ased on the statements you selected"
  597. 6050 print"concerning the issues discussed in the"
  598. 6060 print"survey, your political profile is ..."
  599. 6070 print"   ********************************"
  600. 6080 print"   *                              *"
  601. 6090 print"   *                              *"
  602. 6100 print"[150]   *   [197][216][212][210][197][205][197][160][204][201][194][197][210][193][204][160][196][197][205][207][195][210][193][212]   *"
  603. 6110 print"   *                              *"
  604. 6120 print"   *                              *"
  605. 6130 print"   ********************************"
  606. 6140 print"[154]   [217]our political views are completely"
  607. 6150 print"and consistently liberal on all issues."
  608. 6160 print"[212]his places you at the extreme left of"
  609. 6170 print"the [193]merican political spectrum."
  610. 6180 gosub5640
  611. 6190 print"[147]":goto5280
  612. 6200 print"[147]   [194]ased on the statements you selected"
  613. 6210 print"concerning the issues discussed in the"
  614. 6220 print"survey, your political profile is ..."
  615. 6230 print"     ****************************"
  616. 6240 print"     *                          *"
  617. 6250 print"     *                          *"
  618. 6260 print"[150]     *    [211][212][193][213][206][195][200][160][210][197][208][213][194][204][201][195][193][206]    *"
  619. 6270 print"     *                          *"
  620. 6280 print"     *                          *"
  621. 6290 print"     ****************************"
  622. 6300 print"[154]   [217]our political views are strongly"
  623. 6310 print"conservative.  [212]hey place you within"
  624. 6320 print"the right wing of the [210]epublican [208]arty."
  625. 6330 gosub5640
  626. 6340 print"[147]":goto5280
  627. 6350 print"[147][154]   [194]ased on the statements you selected"
  628. 6360 print"concerning the issues in the survey,"
  629. 6370 print"your political profile is ..."
  630. 6380 print"      **************************"
  631. 6390 print"      *                        *"
  632. 6400 print"      *                        *"
  633. 6410 print"[150]      *    [211][212][193][213][206][195][200][160][196][197][205][207][195][210][193][212]    *"
  634. 6420 print"      *                        *"
  635. 6430 print"      *                        *"
  636. 6440 print"      **************************"
  637. 6450 print"[154]   [217]our political views are strongly"
  638. 6460 print"liberal.  [212]hey place you within the"
  639. 6470 print"liberal wing of the [196]emocratic [208]arty."
  640. 6480 gosub5640
  641. 6490 print"[147]":goto5280
  642. 6500 print"[147][154]   [194]ased on the statements you selected"
  643. 6510 print"concerning the issues discussed in the"
  644. 6520 print"survey, your political profile is ..."
  645. 6530 print"  *************************************"
  646. 6540 print"  *                                   *"
  647. 6550 print"[150]  *  [206][197][201][212][200][197][210][160][210][197][208][213][194][204][201][195][193][206][160][206][207][210][160][196][197][205][207][195][210][193][212]  *"
  648. 6560 print"  *                                   *"
  649. 6570 print"  *************************************"
  650. 6580 print"[154]   [197]ither you have a moderate view on"
  651. 6590 print"all issues, or your liberal tendencies"
  652. 6600 print"exactly balance your conservative ones."
  653. 6610 print"[217]ou should not allow party affiliation"
  654. 6620 print"to sway your vote.  Judge each candidate";
  655. 6630 print"on his or her own merits and not on the"
  656. 6640 print"party he or she represents."
  657. 6650 gosub5640
  658. 6660 print"[147]":goto5280
  659.